Softdisk G-S 156/SGDS 156.2mg/SDGS.156/A/CURSE.O.TALON

Applesoft BASIC Source Code | 1994-08-28 | 510 b | 10 lines | [FC] Applesoft BASIC Program (0x0A01)

1 D$ =  CHR$(4): ONERR  GOTO 99
2  PRINT D$"PR#3"
4  PRINT D$"prefix": INPUT P$: ONERR  GOTO 10
5  PRINT D$"bloadsoftdisk": PRINT D$"prefix"P$:A = 768: POKE A,22:A = A +1:X$ = "The Curse of Talon": GOSUB 9:X$ = "v1.0": GOSUB 9:X$ = "v1.0b5": GOSUB 9:X$ = "By: Sam Ruby": GOSUB 9: POKE A,170: CALL 6 *4096: GOTO 10
9  POKE A,170:A = A +1: POKE A,(35 - LEN(X$))/2:A = A +1: FOR I = 1 TO  LEN(X$): POKE A +I -1, ASC( MID$ (X$,I,1)): NEXT :A = A + LEN(X$): RETURN
10  PRINT D$"prefix"P$: ONERR  GOTO 30
20  PRINT D$"-CT.INTRO"
30  HOME : VTAB 10: POKE 1403,24: PRINT "Flip the disk and press a key...": WAIT 49152,128:A =  PEEK(49152): POKE 49168,0: IF A < >155  THEN 10
40  PRINT D$"bye"
99  PRINT  SPC( 9)"80 COLUMN CARD NEEDED.": PRINT : PRINT  SPC( 14)"PRESS A KEY...": GET A$: GOTO 40